Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/alertwin.dxr/00023_ok button.ls

Text File | 2000-01-28 | 601 b | 30 lines

property ancestor
global gAlertWin, gGraphWizard, gTableClipboard

on beginSprite me
  spNum = me.spriteNum
  spLoc = the loc of sprite me.spriteNum
  ancestor = new(script("generic button"), "ok", "internal", spNum, spLoc, me)
  Inscope(ancestor)
  return me
end

on exitFrame me
  doRollover(ancestor)
end

on mouseDown me
  trackMouse(ancestor)
end

on performFunction me
  theData = duplicate(gTableClipboard)
  Table = getTable(gGraphWizard)
  tell window(gGraphWizard.pMIAW)
    if checkIfSelected(Table) then
      setSelectedData(Table, theData)
    end if
  end tell
  closeMe(gAlertWin)
end